|
|
 |
|
|
|
|
76: If objObject.LastName = Then
77: objObject.LastName = String$(12, ?)
78: End If
79:
80: Print #1, objObject.CustomerID & Space$(bCol(0)
Len(objObject.CustomerID)); _
81: Tab; objObject.FirstName & Space$(bCol(1)
Len(objObject.FirstName)); _
82: Tab; objObject.MiddleInitial & Space$(bCol(2)
Len(objObject.MiddleInitial)); Tab; _
83: objObject.LastName & Space$(bCol(3)
Len(objObject.LastName)); Tab '; vbNewLine
84: End With
85: theReportController.updateProgress lRecCount
86: Next
87: Close #1
88:
89: objRichTextBox.LoadFile sTempFile, rtfText
90: theRichTextAgent.deleteFile sTempFile
91: theReportController.enableTabStops True
92: getCDRReportHeading objRichTextBox, bCol
93: End Sub
94: Public Sub getCDRReportHeading(argRichTextBox As RichTextBox,
ByRef argCols)
95: 'theRichTextBox
96: Dim sHeading As String, sCol(3) As String
97: sCol(0) = CustomerID
98: sCol(1) = First Name
99: sCol(2) = MI
100: sCol(3) = Last Name
101:
102: sHeading = sCol(0) & _
103: & sCol(1) & _
104: & sCol(2) & _
105: & sCol(3)
106: 'Dim FoundPos As Long
107: With argRichTextBox
108: '.LoadFile App.Path & \KEN0001 PCP.txt
109: .Text = sHeading & vbNewLine & String(60, _) _
110: & vbNewLine & vbNewLine & .Text
111: .SelStart = 0
112: .SelLength = Len(sHeading)
113: .SelBold = True
114: .SelColor = vbBlue
115: .SelFontSize = 18
116: .SelFontName = Bookshelf Symbol 2
117: .Refresh
118: End With
119: End Sub |
|
|
|
|
|